home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / e-lang / gaugplgn.lha / gaugedemo.e < prev   
Text File  |  1996-03-14  |  4KB  |  105 lines
  1. /*
  2.       Discription: Demo for the gauge plugin module.
  3.       Author     : Ralph Wermke of Digital Innovations
  4.       EMail      : wermke@gryps1.rz.uni-greifswald.de
  5.       Date       : 02-Apr-96
  6. */
  7.  
  8. OPT OSVERSION=37
  9.  
  10. MODULE  'tools/EasyGUI', 'tools/exceptions','///sources/e/modules/gauge',
  11.         'utility/tagitem'
  12.  
  13. DEF mp:PTR TO gauge,mp2:PTR TO gauge,mp3:PTR TO gauge,mp4:PTR TO gauge,
  14.     mp5:PTR TO gauge
  15.  
  16. PROC main() HANDLE
  17.  
  18.   easygui('GaugeDemo',
  19.     [EQROWS,
  20.       [COLS,
  21.         [EQROWS,
  22.           [PLUGIN,0,NEW mp.gauge([
  23.                               GAUGE_BorderX,10,
  24.                               GAUGE_BorderY,5,
  25.                               GAUGE_Units,1000,
  26.                               GAUGE_BorderType,GTYP_DOUBLE,
  27.                               GAUGE_InitState,750,
  28.                               GAUGE_BackPen,4,
  29.                               GAUGE_BorderPen,3,
  30.                               GAUGE_Border,GTYP_XEN,
  31.                               GAUGE_Bar,GTYP_2D,
  32.                               TAG_DONE])],
  33.           [PLUGIN,0,NEW mp2.gauge([
  34.                               GAUGE_Units,1000,
  35.                               GAUGE_BorderType,GTYP_DOUBLE,
  36.                               GAUGE_InitState,500,
  37.                               GAUGE_FillPen,3,
  38.                               GAUGE_BorderX,15,
  39.                               GAUGE_BorderPen,4,
  40.                               GAUGE_Height,15,
  41.                               GAUGE_Border,GTYP_XEN,
  42.                               GAUGE_BarRecessed,TRUE,
  43.                               TAG_DONE])],
  44.           [EQCOLS,
  45.             [PLUGIN,0,NEW mp3.gauge([
  46.                               GAUGE_Units,1000,
  47.                               GAUGE_BorderType,GTYP_SINGLE,
  48.                               GAUGE_InitState,500,
  49.                               GAUGE_BackPen,0,
  50.                               GAUGE_FillPen,3,
  51.                               GAUGE_Border,GTYP_XEN,
  52.                               GAUGE_Bar,GTYP_XEN,
  53.                               GAUGE_BarRecessed,FALSE,
  54.                               GAUGE_BorderRecessed,FALSE,
  55.                               TAG_DONE])],
  56.             [PLUGIN,0,NEW mp4.gauge([
  57.                               GAUGE_Units,1000,
  58.                               GAUGE_BorderType,GTYP_NONE,
  59.                               GAUGE_InitState,500,
  60.                               GAUGE_BackPen,5,
  61.                               GAUGE_FillPen,4,
  62.                               GAUGE_Width,GAUGE_FREE,
  63.                               GAUGE_Height,GAUGE_FREE,
  64.                               GAUGE_BorderX,5,
  65.                               GAUGE_BorderY,5,
  66.                               GAUGE_Bar,GTYP_3D,
  67.                               GAUGE_BarRecessed,FALSE,
  68.                               TAG_DONE])]
  69.           ]
  70.         ],
  71.         [PLUGIN,0,NEW mp5.gauge([
  72.                               GAUGE_Units,1000,
  73.                               GAUGE_BorderType,GTYP_DOUBLE,
  74.                               GAUGE_InitState,500,
  75.                               GAUGE_BorderPen,2,
  76.                               GAUGE_BackPen,5,
  77.                               GAUGE_FillPen,4,
  78.                               GAUGE_Width,GAUGE_FREE,
  79.                               GAUGE_Height,GAUGE_FREE,
  80.                               GAUGE_BorderX,5,
  81.                               GAUGE_BorderY,5,
  82.                               GAUGE_Bar,GTYP_2D,
  83.                               GAUGE_BarRecessed,TRUE,
  84.                               GAUGE_BorderRecessed,FALSE,
  85.                               TAG_DONE])]
  86.       ],
  87.       [SLIDE,{slide},NIL,FALSE,0,1000,3,0,NIL]
  88.     ]
  89.     )
  90. EXCEPT
  91.   report_exception()
  92. ENDPROC
  93.  
  94. PROC slide(info,x)
  95. mp.set(x)
  96. mp2.set(x)
  97. mp3.set(x)
  98. mp4.set(x)
  99. mp5.set(x)
  100. ENDPROC
  101. /*EE folds
  102. -1
  103. 94 5 
  104. EE folds*/
  105.